Top 10k strings from +80 Stock Manager (1984)(Oxford Computer Publishing)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 V$(V,E)="."
3 )+"FAKINP"
2 TAPE LOADING ERROR
2 STOP (1/2):
2 STOCK
2 S;Y$;Y$;Y$(
2 QUANTITY @ ITEM PRICE TOO BIG
2 ONLY ";L(V);" IN STOCK
2 ADDRESS LINE 3
2 ADDRESS LINE 2
2 ADDRESS LINE 1
2 #E;"ARE YOU SURE?
2 "64350",E*(A>E)
2 "4";V$(V,E+E
1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????l
1 w`W4 CGE4s`#QBW6
1 rDPVBUdt FRERBBB@
1 p3 b0d#d0Rg2`3B@B
1 norman/data
1 drivers
1 Z$="0 = MENU":
1 Y$="--------------------------------":
1 W$="3";"SCREEN"
1 W$="3";" DRIVER";#E;
1 W$="2";"YOUR OWN"
1 W$="2";" VAT) DATE ";D$:
1 W$="1";" (EXC"
1 VERS. 1.2 U.K.
1 VALUE EXCL. VAT:
1 VALUE EX. VAT:
1 V$(V,E)="1";" VAT"':
1 V$(V,E)="1";
1 V$(V,E)="1"):
1 V$(V,E)="1"
1 V$(V,E)="0";"+"
1 V$(V,E)="0"
1 V$(V)=V$(V):
1 V$(N)=".":
1 V$(DIM,IM):
1 U$(E)=".":
1 TYPE OF PRINTER:
1 TYPE OF INTERFACE:
1 TOTAL VALUE TOO BIG
1 T$="TODAY'S SALES"
1 T$;" + SAVE"'S$;'''"0. MENU"'"1. ";T$;" ON SCREEN"'"2. ";T$;" ON PRINTER"'"3. SAVE ON CASSETTE"'"4. SAVE ON MICRODRIVE"'"5. SAVE
1 T$,D$'S$''''"SALES EX. VAT:";
1 START THE TAPE
1 SK=E+E;#E;L$
1 SALES QUANTITY:
1 S;X$(E+E);
1 S;T$;" ";D$:
1 S;K$(E+E)'
1 S;I$;" (INC"
1 S;B$;"VALUE EXC VAT:";
1 S;B$;"ADJUSTMENT (";C$
1 S;"NO. GOODS";
1 S;"NO. GOODS";
1 S;"NO. GOODS";
1 S;"N0. GOODS";
1 S;"INVOICE NO. ";N+FN-E;
1 S;"CONTINUE PAGE ";SI
1 S/(E+(PR=E));
1 S$="________________________________"
1 S$(E)=S$(E):
1 S$''"VALUE INCL. VAT:";
1 S$''"0. MENU"'"1. SINGLE ITEM ON SCREEN"'"2. RANGE OF ITEMS ON SCREEN"'"3. ON PRINTER"
1 Ready for verify!*=\
1 REPORTS AND"'"PRICELIST:
1 R=S(V)*L(V):
1 R=R*(MO/HU)*
1 Q$="3";") ";D$''
1 PRICE EX. VAT:
1 PRESS NUMBER
1 PRESS A KEY
1 PARITY"," "'"(0=OFF 1=ODD 2=EVEN):
1 P$=" "(
1 P$-E-E)+"."+P$(
1 ON SAVE: USE TAPE NO. ";BA,
1 NORMAL CHR.:
1 NO. GOODS";
1 NAME OF YOUR COMPANY
1 MIN. OF STOCK:
1 MICRODRIVE NOT PRESENT
1 L(V)*S(V)>
1 J$="INCREASE":
1 ITEM PRICE:
1 ITEM PRICE @ STOCK QTY TOO BIG
1 IN STOCK :
1 I$="PRICE LIST":
1 H$="ITEM NO.":
1 G$="AMEND/CHANGE":
1 G$'S$''"0. MENU"'"1. NEW GOODS/CHANGE NAME"'"2. ITEM PRICE"'"3. MINIMUM STOCK"'"4. VAT"'"5. DATE"'"6. COMPANY TEXT"'"7. PRINTER AND PAPER";#E;L$
1 FAK=FAK+E:
1 F(FAK-FN)=B+BB:
1 F$="RE-ORDERING":
1 ENLARGED CHR.:
1 E;B$+J$;":";
1 E;A$;" ";FAK'
1 E+(Q$="2"):
1 E$="STATUS":
1 DISCOUNT %:
1 D$="12.09 1984":
1 Created with Ramsoft MakeTZX
1 C$="DECREASE":
1 BITS (7/8):
1 B$="STOCK ":
1 A*S(V)+B+BB>
1 A$="INVOICE ":
1 ;"OLD DATE: ";D$''"
1 ;"LIST ON ";"PRINTER"
1 2.09 1984
1 1ITS (7/8):
1 12.09 1984
1 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
1 ---------------------------------------++++++++++++++++----------------){{{{{{{{{{{{{{{(())))))))))))))){{{{{{{{{{{{{{{(())))))))))))))){{{{{{{{{{{{{{{(())))))))))))))){{{{{{{{{{{{{{{(())))))))))))))){{{{{{{{{{{{{{{(()))))))))))))))))))))))))))))((()))))))(((((((()(((((((((((()(((((((((((()))))))))))))))))))))))))))((())))))))))))))))))))))))))))))))++++))))))))))))))))))))))))))))+((((((()())((((((((()((((((((((+)))))))))))))))))))))))))))))))+)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((
1 *"M";E;"run":
1 *"M";E;"run"
1 )+"PRINT":
1 )+"FAKINP":
1 (S(V)*(HU+MO*(V$(V,E)="1"))+
1 (A+L(V))*S(V)>
1 'A$;"AND ";B$;C$'S$''"
1 '''"PRINTER CODES:"'"
1 '''"DISCONNECT
1 '''"1. INCL. VAT"'"2. EXCL. VAT";#E;''L$
1 '''" MENU"'S$''" 1. ";A$;"AND ";B$;C$'" 2. ";B$;C$;" ONLY"'" 3. ";B$;J$'" 4. ";B$;E$'" 5. ";F$'" 6. ";I$'" 7. ";G$'" 8. ";T$;" + SAVE"'s$;#E;" ";L$
1 ''"OLD VAT: ";MO''"
1 ''"1. INPUT ON PRINTER AND SCREEN"''"2. ON SCREEN ONLY";#E;L$
1 %sbq`u3c%@
1 $`RDPdBeDT
1 #QBW6v`u3c%@
1 #E;Z$;#E+E;B$+E$
1 #E;MO;"% VAT ON ITEM?
1 #E;"VAT ON THIS ITEM?
1 #E;"OCP/norman data
1 #E;"NO. ";V;" IS NOT ESTABLISHED!"''"DO YOU WANT TO INPUT?
1 #E;"NO GOODS IN STOCK!"''"INPUT GOODS IN STOCK?
1 #E;"CHANGE NAME?
1 #E;"ARE YOU SURE? (PRESS
1 #E;". = CLEAR ITEM"
1 #E;" ";"0 = END"'DIM+E;" = DISCOUNT"'DIM+E+E;" = TEXT AND VALUE":
1 "WELCOME TO PROGRAM"'"STOCK MANAGER."'s$'''"FIRST NO. OF INVOICE: ";:
1 "TAPE ";BA;" - READY"'S$:
1 "PRINTER CODES RS232"''"
1 "NO MORE ROOM!"'"
1 "M";E;"run":
1 "FORM DEPTH IN INCHES (MIN. 5"")"'S$'''"
1 "BORDER:";b:
1 "9";V$(V,E+E
1 "9";"SUBTOTAL";
1 "9";"DISCOUNT ";A;"%";
1 "9"*(Q$="2")
1 "72";"VAT"''
1 "68"-T;L(V);
1 "65532",E+E:
1 "65495",V-
1 "64346",A-
1 "5";" PRICE
1 "46"-A;M(V);
1 "45";"PAGE "
1 "45";"DATE ";D$
1 "44";"ITEM PRICE":
1 "42";"QUANTITY"'
1 "40"*(Q$="3")
1 "4";"Leave the tape running!";
1 "4";"INCL.VAT";
1 "35";Y$;Y$(
1 "35";MO;"% VAT ";
1 "35";"VALUE INCL. VAT";
1 "35";"VALUE ";"EXCL."
1 "35";"QUANTITY ITEM PRICE VALUE";
1 "33";"MINIMUM ";B$;" PRICE QUANTITY VALUE",
1 "32"-L;L(V):
1 "31"*(PR=E)+
1 "30"*(PR=E)+
1 "26");" "+"Phone: "+N$
1 "24";"VALUE INC VAT ";P$:
1 "24";"QUANTITY"
1 "23";" ";
1 "22";P$;#E;M$
1 "20482",A:
1 "20"*(PR=E+E)
1 "20");" ";:
1 "16";A;" "
1 "14"*(PR=E+E):
1 "12";V$(V,E+E
1 "11";V$(V,E+E
1 "10";V$(V,E+E
1 ".5")/HU)*(W$="1"
1 ".5")/HU)*
1 "''"1. ON"'"2. OFF";#E;L$
1 "''"1. NO CHANGE"'"2. NEW OCP DRIVER"'"3. YOUR OWN DRIVER"''"
1 "''"1. MICROLINE"'"2. EPSON COMPATIBLE"'"3. OTHER PRINTER";#E;L$
1 "''" LOAD ";"OCP"
1 " DATE ";D$''
1 " ":
1 OF TODAY'S SALES!":
1 LINE";#E;"START TAPE, then press any key"
1 CARTRIDGE MICRODRIVE"''''"
1 3.5 MIN.":
1 - RECORDING!";
1 ";V$(V,E+E
1 ";S(V);" EX. VAT"
1 Q
1
1